home *** CD-ROM | disk | FTP | other *** search
/ Publication 12 / Publication_12_19xx_Civitas_de_Side_A.d64 / speicher .txt < prev    next >
Text File  |  2023-02-26  |  7KB  |  13 lines
  1.  
  2. @          PPPPPPPPPPPPPPPPPPPP                   SSPEICHERPLATZ SPARENR                   QQQQQQQQQQQQQQQQQQQQ                                                                                             
  3. ,    
  4.  ,     :                                                         
  5.   
  6.    {CBM-Z},   
  7.  -  
  8.  
  9.  
  10.   ,    
  11.      !                                          , 
  12.           (..  1000-   64'-)   -     , !       
  13.    
  14.  
  15.        
  16.   
  17.      NEUE ,..  ...       
  18.   :                                                  1)  
  19.   REM'           ...         !                                               2)              64' : 
  20.             !                                                       3) '   "
  21. " -       
  22.  
  23.  
  24.  -    (
  25.  % !) .                                                          4)   ,           10  ,      (9,9) . (9)  ((0) .   (0,0)  
  26. ),    
  27.   DIM
  28. ,         
  29.    10 
  30.         ,  .. 5      .                                                              5)  ,   
  31.     "0"   -        ,    "1" -        !                                                                     6)          
  32.     -       :                                                                        
  33.   ..   
  34.         
  35.    : -  
  36. ,      .. !    
  37.        :                                                                        {$e4}(0)=""  {$e4}(0)=""         {$e4}(1)=""      {$e4}(1)="
  38. "        {$e4}(2)=""     {$e4}(2)="
  39. "                                               
  40.    
  41.          -  
  42. ,{$e4}()           -          {$e4}()  
  43. .                                                                 ,        
  44.  ZWEI           
  45. .  
  46.           ?                                                                       
  47.   ,  -          
  48.    ,         .. 
  49.  12 .                                                        
  50.  INPUT  
  51.   -       
  52.        {$e4}  {$e4}, :                                                                INPUT{$e2}VORNAME  {$e2}{$fb}A{$e4}                     INPUT{$e2}NACHNAME {$e2}{$fb}B{$e4}                                                             
  53.               12  
  54.          ,   :                                                   FORG{$fd}LEN{$e8}A{$e4}{$e9}TO{$f1}{$f1}{$fa}A{$e4}{$fd}A{$e4}{$eb}{$e2} {$e2}{$fa}NEXT         FORG{$fd}LEN{$e8}B{$e4}{$e9}TO{$f1}{$f1}{$fa}B{$e4}{$fd}B{$e4}{$eb}{$e2} {$e2}{$fa}NEXT                                                               
  55.  
  56.   . 
  57.        
  58.   .                                                                  N{$e4}{$e8}X{$e9}{$fd}A{$e4}{$eb}B{$e4}                                                          {$e4}()    - 
  59. .            
  60.  -  
  61.         ,
  62.              
  63.  LEFT{$e4}{$ec}RIGHT{$e4}      ( ) MID{$e4}  -        .                                                                            
  64.           
  65.  ,         V{$e4}{$e8}X{$e9}  N{$e4}{$e8}X{$e9}   N{$e4}{$e8}X{$e9}     !    
  66.        !                                                                      7)                          ,
  67.  :                                                                - ,          
  68. ,         {$e4}000 (49152) .      
  69.    PEEK  POKE         0  255      ,..  
  70.  
  71.  0  1       ,    -      
  72.  
  73.    .                                            {CBM-S}{SHIFT-@}    
  74.   10              G{$e4}{$e8}X{$e9}                                                         POKE       49152+  1.
  75.  ,           ,            49152        "0" .
  76.    ..       
  77.  :                                                                  10 =1:{$e4}();               11 (49152+)=1" +"       12 (49152+)=0" -"       13                                                                           
  78.  
  79.               ( ""   )    
  80.   
  81. ,          ("+")      ("-") !                                                                      8)      64' :          ---         
  82.             , '           13            
  83.   !                                                            !   ,
  84.   
  85.       -   
  86.  
  87.   
  88.  
  89.     !  
  90.       {$e4}000-     !!!                                                                             
  91.                    ,                                                            //                                                                                        ..: 
  92. ,  ' 
  93. ...
  94.                ,        -
  95.  , ?               ,          ,
  96.    .       ,               
  97.  
  98.  !                                           ij                                 kl                                           ----------------------------------------